home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 3 / Your Choice Software Collection 3.iso / os2 / fm2_207 / cvt4os2.cmd < prev    next >
OS/2 REXX Batch file  |  1994-08-18  |  2KB  |  46 lines
  1. /* Convert DESCRIPT.ION files to WPS .SUBJECT EAs    */
  2. /* I'm not terribly familiar with 4OS2 so this might */
  3. /* not cover unusual situations (for instance, I'm   */
  4. /* guessing the format is "filename.ext description" */
  5. /* and don't try to handle filenames with embedded   */
  6. /* spaces since I don't know how they're handled in  */
  7. /* the file (quote delimited?).  Modify to taste.    */
  8. /* As written, DESCRIPT.ION file must be in the      */
  9. /* default directory.  Also note that I'm told that  */
  10. /* 4OS2 has commands that allow it to retrieve the   */
  11. /* file description for you -- it might be best to   */
  12. /* use those instead of reading the DESCRIPT.ION     */
  13. /* file directly.                                    */
  14.  
  15. '@echo off'
  16. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  17. call SysLoadFuncs
  18. rc = SysFileTree('DESCRIPT.ION','dummy','F','*****','**---')
  19. describename = stream('DESCRIPT.ION','C','query exists')
  20. if describename \= '' then
  21. do
  22.   destream = stream(describename,'C','open')
  23.   if destream = "READY:" then
  24.   do
  25.     say 'Working...'
  26.     do while lines(describename)
  27.       text = linein(describename)
  28.       parse var text filename text
  29.       text = left(text,40)
  30.       text = strip(text)
  31.       filename = strip(filename)
  32.       if filename \= '' then
  33.         if text \= '' then
  34.         do
  35.           description = 'FDFF'x || d2c(length(text)) || '00'x || text
  36.           call SysPutEA filename,'.SUBJECT',description
  37.         end
  38.     end
  39.     call stream describename,'C','close'
  40.     'del 'describename
  41.   end
  42. end
  43. else
  44.   say 'File DESCRIPT.ION not found in current directory.'
  45. exit
  46.